Re [Ondrej Kel]: TWebBrowser a jeho obsah
Otázka od: David Kraina
7. 11. 2003 16:18
Uz jsem s nadsenim to zkousel aniz bych si vsiml poslednich radku tohoto
mejlu. Cast oka s posuvniky NEPOTREBUJU. To jsem dokazal sam i bez
propojovani OLE a ActiveX k projektu...
Ale stejne dik
S pozdravem
===================================================
David Kraina, DKx
-------------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.on.to
http://MX-3.w3.to
===================================================
> > potreboval bych dostat obsah okna TWebBrowseru do bitmapy.
>
> Nie som si isty, ci chces prave toto.
> Najrychlesie to asi vyskusas s webbrows.dpr v Demos\CoolStuf. Pridal som
si
> novu akciu a button do toolbaru.
>
> procedure TMainForm.ActionSaveBmpExecute(Sender: TObject);
> var
> Bmp: TBitmap;
> begin
> if SaveDialog.Execute then
> begin
> Bmp := TBitmap.Create;
> try
> Bmp.Width := WebBrowser1.Width;
> Bmp.Height := WebBrowser1.Height;
> OleCheck(OleDraw(WebBrowser1.Application, DVASPECT_CONTENT,
> Bmp.Canvas.Handle, Rect(0, 0, Bmp.Width, Bmp.Height)));
> Bmp.SaveToFile(SaveDialog.FileName);
> finally
> Bmp.Free;
> end;
> end;
> end;
>
> (V podstate ide o to, ze TWebBrowser.Application implementuje
IViewObject.)
>
> Kresli to kopiu toho, co prave ten TWebBrowser zobrazuje. Tzn. viditelnu
> cast dokumentu aj so scrollbarmi.
>
> HTH
> TOndrej
>
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)